The X-Philes (2nd Revision)/The X-Philes Number 1 (1995).iso/xphiles/hp48_2/tetris21/comp.sys.handhelds_5127_000000.msg

Internet Message Format | 1995-03-31 | 19KB

From: [e-mail] (Andrey Dolgachev)
Subject: Tetris2.1 for HP-48sx
Date: 16 Mar 91 03:40:05 GMT

O.K. here it is, the new Tetris, version 2.1.  First of all, the feature
list for those new and old users and players of Tetris.

 1)  IN addition to the Tetris game itself, we have the following
assorted add-ons.
 2)  A cool background screen, with the score counter, lines counter, and
a next piece view toggled by N on the Hp's kwyboard.
 3)  Top 5 High-scores saved with prompt for name and display of
high-scores.
 4)  An off key which turns the calculator off.  Upon being turned on
again, the game continues from where you left off.  A quit key which lets
you stop playing, but saves your high-score (and prompts for your name,).
 5)  Various bugs of the preevious Tetris have been fixed.
 6)  A Help key
 7)  A Erase High-scores function.
O.K> that was the various features of the previous Tetris, or at least
the important things I remembered.
For Tetris2, here are the updates:
 1)  A true Pause function which lets you pause the game, and resume
normal calculator operations (all of them, except for starting a new game
of Tetris with the same copy).
 Oh, wait, it's in Help, but just in case, N toggles the next key, O
turns the calculator off, P pauses the calculator, and Q quits the game
when playing.  When you paused the game, press RESU to resume.
 2)  Screen Dissolving.  Compliments of Joe Ervin, the game now dissolves
from screen to screen.  Takes place when you start the game, when you
display high-scores, and when you quit the game.
 3)  ON-key trap.  If you press ON during the game, you will almost
immediately exit (no noticeable time-gap) but everything will be
clean-uped, like the stack.
 4)  Various bug fixes and minor things.  SOme of these include the
calculator being able to turn itself off if left in one of the infinite
loops ( until you press a key) like are found in the HELP screens, or
HIgh-scores display.  Another fix is that I changed the way that the
delay is handled.  The end result is that the keys feel easier to use.
Now, here are the changes for version 2.1
 1)  The cool thing about Wickes' library is that if you do it right, you
can have it permenantly embed itself into your program.  The ON-key error
trap occurs even if you don't have Wickes' IFERR library installed
becasue the library is in the Tetris game.
 2)  Customizing of the dissolving routines through the list DLST.  The
list found in DLST (first var. of the second row) contains three numbers.
The three numbers correspond to the 3 locations in which a screen
dissolve takes place:  the beggining, the high-score display, and the
end.  A 0 indicates that no dissolve takes place, a 1 indicates that a
bit-wise dissolve, which tkaes 4.2 s will tkae place, a 2 indicates that
a "tiling" effect dissolve takes place, which takes 1 s to do.
Ot
Other things:  The program has been stripped of the << and >>'s, so don't
eidt the programs unless you know what you're doinIf you edit a variable
which contains one of these stripped programs, the probram could get
messed up.  The version of Tetris is kept in the About program.  Keep the
About program when you trnsfer Tetris.  Actually, keep the whole program
intact please.  When referring to Tetris, make sure that you state which
version it is.  This is the official version 2.1 of Tetris, as far as I
know the only Tetris out, except for Tetrisx.
Instructions:  Download the following, store it in your calculator, and
ASC-> the whole thing.  Then simply store it in a variable.  Becasue the
file is 13k in ASCII form, make sure you have plenty of room.  I tried it
with my Ramcard unattached, but with the calculator virtually empty.  It
worked fine.
For Help, read the above and/or press HELP for help (in the Tetris dir)
Credits and Thanks:  Erike Bryntse for the original HP48 version of
Tetris with machine-language.  Joe Ervin for his dissolving routine.  All
of the people who posted bug-reports, suggestions, comments, etc.
Legalities:  No warranties or guartees are implied for this program.  I
am not responsible for any damage that this program may instill on you,
the calculator or the world in general.  I am not liable for anything
that Tetris addiction, combined with having Tetris in a calculator will
do to you, your family, or your friends.

Also, TETRIS2.1 is 6600 bytes large.  If you run across a time when you
don't have enough memory, I also posted a Smaller version of Tetris which
doesn't have any of the cool things of its bigger brother, but does have
the pause key, the ON-key error trap, and the score and line counter.  It
is only 3300 bytes small.  That version is called SmTetris.  I don't see
me makeing updates for it , that's the point, its' gonna stay small.

That is it.  Here we go, cut the below.
-------------cut here, bitte--------
%%HP: T(3)A(D)F(.);
"69A20FF71D2300000040050514254047A2077920000000000000056900000000
00000139779200000000000000560000000000000023084E2010854B2A277920
00000000000000000000000000000000166E184E201095B21301A0004005E445
354033920000000000000000012000603534F42554356047A2047A204B2A2C2A
20500004B2A2B213047A204B2A2C2A20500004B2A2B213047A204B2A2C2A2050
0004B2A2B213047A204B2A2C2A20500004B2A2B213047A204B2A2C2A20500004
B2A2B2130B21300B0004045C494E440D9D2078BF1E4A20510005014013012011
010DBBF12ABF1E4A2051000000000000000000076BA184E204045649474E0CF1
E0CF1E4A2051000500000000000000076BA184E20404564947476BA1B2130AA0
004025F4456440D9D202ABF1E4A2051000000000000000000084E20408564947
484E204064C4354584E2030F424136C7D184E2030F424239C2A290DA13CE2278
BF14B2A2CFCE1AFE22D9D208DBF178BF18B9C1B21305DF2278BF11C432D6E203
0F43523E16326C7D1DBBF12ABF1E4A2051000000000000000000076BA184E204
0456494743CE22E4A20510000000000000000000279E1AFE22D9D20E0CF18DBF
1D6E2030F435234563284E2030F4242397632DCC02B21305BF22D9D20DBBF18D
BF1B21305DF222ABF1E4A2051000F99F00000000000084E204085649474EF532
B21303C10040051434B440D9D20E4A2051000A0D00000000000003C03284E204
045C494E43CE22E4A20510004000000000000000279E1AFE2284E202005235BF
22D9D20E4A2051000001000000000000090DA1B21305DF22DE03278BF1E4A205
10000020000000000000EBBE19B6328DBF1B2130ED00020052320D9D20339202
00000000000001084E2040144444059C2A284E2040144444C478BF1E4A205100
000F0000000000000387E1B7691803A2EEDA13F2A276BA1E4A2051000B200000
000000000DBBF1ED2A2387C1634E1DBBF147A20E4A2051000350000000000000
0E4A20510008000000000000000B2130C58C1634E147A20E4A2051000B200000
000000000E4A2051000C000000000000000B2130E0CF1AE8C1B2130A410030F4
242330339200000000000000010F100030F4241330339200000000000000060F
10003025B42330D9D203CE22378A1AFE22D9D203CE2247A20339201000000000
0002703392010000000000004703392010000000000002903392010000000000
0036033920100000000000043033920100000000000053033920100000000000
0330339201000000000000230B2130DBBF14BAC178BF1AFE22D9D2047A20D9D2
0E1632E4A20510001000000000000000599A184E2050D43594445493632B2130
D9D20E1632E4A2051000100000000000000084E2050D43594445493632B2130D
9D20E16329C2A2472C193632B213084E204025F44564D9D20E1632634E104B02
44CF184E2010C490DA1ED2A276BA1387C14563284E203035146597632DCC0227
43293632B2130D9D20E16323F2A2472C193632B2130E13A1D9D20E1632743A20
25C13CE22AFE22D9D20743A2472C184E20403584E405B21305DF2293632B2130
B2130DBBF16C7D1EB3A1B21305BF228DBF15DF22B21305DF22B21303B20050D4
3594445450D9D201C432D6E20203444E16322ABF1E4A20510000000000000000
00084E204085649474D6E2020344476BA12ABF1E4A2051000000000000000000
076BA184E2040456494743CE22E4A20510000000000000000000D9AE1AFE22D9
D20D6E2020344490DA1B21305DF222ABF1E4A2051000F99F00000000000084E2
04085649474EF532B213091100406455C4C440D9D20E4A205100050140130120
11010E4A2051000A0300000000000002ABF1E4A2051000000000000000000076
BA184E204045649474E0CF1E0CF1E4A2051000500000000000000076BA184E20
404564947476BA1E4A20510000000000000000000D5CE1B21309D0004064C435
454047A2047A20E4A20510004025014013010000E4A205100030140240140000
00E4A20510004015024023020000E4A20510005014024014000000B213047A20
E4A20510005004024014000000E4A20510005025014013010000E4A205100030
24024014000000E4A20510005024023023010000B213047A20E4A20510004024
014003000000E4A20510005024023025010000E4A20510005024024014000000
E4A20510003025014013010000B213047A20E4A20510003023014014000000E4
A20510005024024013010000B213047A20E4A20510004024013013000000E4A2
0510005014014023020000B213047A20E4A20510005034033032030000E4A205
10004034024014000000B213047A20E4A20510004013014003000000B2130B21
30A4200401444440540D9D204563284E204005E4453597632B4402634E147A20
E4A20510005000000000000000E4A20510008000000000000000B213084E2040
05E445359C2A2DA5E1AE8C1B21305900040144444C440D9D204563284E2040C4
94E43597632B4402634E147A20E4A20510004600000000000000E4A205100080
00000000000000B213084E2040C494E4359C2A2DA5E1AE8C1B21305900040C49
4E4354033920000000000000000012000403584E40540D9D203CE22743A2313C
1AFE22D9D20634E147A20E4A20510000200000000000000E4A2051000B100000
000000000B213084E2030340534AE8C1634E147A20E4A2051000020000000000
0000E4A2051000B100000000000000B213084E203005742484E2030E405346C7
D178BF18B9C1614E14563284E203034053497632DCC02AE8C1B21305DF22B213
00210030E4053430339200000000000000010F1000300574243047A20E1B2072
000C000080000F09090F0FF9999FFF09090F0E1B2072000C000080000FF9999F
FF09090F0F09090F0E1B2072000C000080000FF9999FF0F09090F0F09090FE1B
2072000C0000800000F09090FFF9999FFF09090F0E1B2072000C000080000F09
090F0FF9999FF0F09090FE1B20F20000100040000F09090F0F09090F0F09090F
0F09090F0E1B20F10008000080000FF9999FFFF9999FFB213084100303405343
0E1B2072000C00008000000000000000000000000000063000403484843540D9
D209C2A26C7D184E204005E44535EBBE1B213043000306494E430D9D2084E206
03534F4255435D13A26C7D184E2040348484353CE22339201000000000000210
313C1AFE22D9D208B9C1387C14563284E2020354597632DCC02B21305BF22D9D
203CE22AFE2284E202084945DF2284E204044258494B21305DF22B2130FC0004
04425353440D9D20E97C1DBBF1ED2A2DA5E1AE8C1B2130F200020849420D9D20
803A21C432D6E201094E1632C2A209400034F4E47425144535C20295F4550225
541434845444A04584540245F405026494655447A20C2A205000084E2010C8B2
130AC422F52E1275E1634E1DBBF147A20E4A20510000000000000000000E4A20
510000000000000000000B2130DBBF1AE8C147A20E4A20510000000000000000
000E4A20510000000000000000000B21300F2E184E204005E44535DBBF184E20
40C494E4353F2A2387C13C0323CE22D6E2010944B2A2279E1AFE224B2A25BF22
D9D2084E20603534F4255435D6E2010946C7D184E204034848435B21305DF223
CE22AFE22D9D20683A245632D6E20109497632B44024B2A2B21305BF22D9D208
4E20603534F42554359C2A2D6E201094C58C1DBBF19C2A2387C176BA184E2060
3534F4255435D6E2010949C2A276BA1803A2C58C176BA14563284E20603534F4
25543597632DCC029C2A2B21305DF22DE0329B632EF532B21300C20010161033
9209990000000000040B1000504656C6169750D9D2084E201016339207990000
00000004090DA178BF13CE224B2A2CFCE1AFE22D9D2033920799000000000004
04563284E20101697632DCC028DBF1B21305BF22D9D204563284E20101697632
DCC02B21305DF22B2130CB0005094E464C40550D9D204B2A2F17A18DBF1B2130
720006045544525943560D9D20684C13392010000000000004605C5C13392099
900000000040404563284E20101697632DCC029C2A25D2C13F2A25D2C1339201
0000000000002105D2C1743A25D2C184E2050D4B43534259B1C1743A2EEDA1D6
BB19C2A276BA14563284E2030E4053497632DCC024B2A24563284E204005E445
3597632DCC024B2A24563284E2040C494E43597632DCC024B2A284E204014444
4C44B2A284E2040144444053C03284E20504656C6169784E204064C4354584E2
030E405349B1C1743A2EEDA1D6BB19C2A276BA14563284E2030E4053497632DC
C0284E20403584E40578BF14563284E2030F4241397632DCC026C7D19C2A278B
F14563284E2030F4242397632DCC026C7D1E4A2051000B0000000000000009C2
A25D2C13C0323CE229C2A2063C1AFE22D9D2084E203025B42384E203025B4238
4E203025B42384E203025B42384E201016F17A1B21305DF223CE223F2A2063C1
AFE22D9D202ABF1E4A2051000000000000000000084E204085649474E4A20510
00001000000000000076BA12ABF1E4A2051000000000000000000076BA184E20
40456494743CE22E4A20510000000000000000000279E1AFE22D9D202ABF1E4A
2051000F99F00000000000084E204085649474B21305BF22D9D20E4A20510000
01000000000000090DA1E4A2051000F99F00000000000084E204085649474E4A
20510000000000000000000B21305DF22B21305DF22DE03278BF1E4A20510000
000000000000000279E13F2A2313C1908E19B6323CE223F2A2063C1AFE22D9D2
033920100000000000002084E2040144444058DBF184E2040051434B4AAF028D
BF1B21305DF22DE03284E20406455C4C43F2A2313C1908E19B63284E20306494
E4B2130205003035146530C2A20500004100010C410339200000000000000020
B100050D4B435342550D9D2078BF1F52E1634E147A20E4A2051000B500000000
000000E4A20510006200000000000000B213084E204005943423AE8C17792000
0000000000056900000000000002307792000000000000005600000000000000
139CE3E177920000000000000022900000000000002307792000000000000009
100000000000000829CE3E177920000000000000056900000000000008107792
000000000000005600000000000000610CE3E133920000000000000051033920
00000000000001100A132D6E201094339200000000000000569D6E201094E97C
1339200000000000000560D6E20109433920999000000000001090DA1E97C1CE
3E133920999000000000002908332634E147A20E4A2051000300000000000000
0E4A20510006200000000000000B213084E204005943413AE8C1634E147A20E4
A2051000C200000000000000E4A20510000000000000000000B2130E4A205100
08200000000000000E4A2051000C300000000000000614E1AE8C1634E147A20E
4A2051000F500000000000000E4A20510002000000000000000B2130C2A20310
00C494E4543502A39C2A2DA5E1AE8C1634E147A20E4A20510002000000000000
000E4A20510002000000000000000B2130C2A20310003534F4255402A39C2A2D
A5E1AE8C1634E147A20E4A20510007000000000000000E4A2051000C10000000
0000000B2130C2A2011000E454854502A39C2A2DA5E1AE8C1634E104B02DBBF1
634E1DBBF147A20E4A20510000000000000000000E4A20510000000000000000
000B2130DBBF1AE8C147A20E4A20510000000000000000000E4A205100000000
00000000000B21300F2E19C2A284E20504494355425B2130BE40040442584944
0D9D20339209990000000000089339200000000000000910FE3A233920000000
00000005293392000000000000005401C432D6E2010E4D6E201095D6E2020851
3D6E20208523D6E20208533E1632E4A20510003800000000000000E4A2051000
0400000000000000614E1C2A20B100084947484023534F42554353F2A2DA5E17
792000000000000002390000000000000130DBBF1AE8C1C2A20F00003534F425
54339200000000000000369D6E20109584E204044253534C2A20D0000E414D45
4339200000000000000119D6E20109584E204044253534C2A20F0000C494E454
35339200000000000000530D6E20109584E2040442535349C2A2D13A23392099
9000000000002945632D6E20109597632B44020A132D6E201094D6E2010E4456
32D6E20109597632B440284E20603534F4255435D6E2010946C7D1A59C18DBF1
803A25BCF1DBBF1D6E20208533D6E20109584E204044253534DBBF1D6E202085
23D6E20109584E204044253534DBBF1D6E20208513D6E20109584E2040442535
34C4232ED2A284E2050449435542584E205094E464C405EF532B213034300504
49435542550D9D2084E204044C43545DBBF16C7D13CE2278BF14B2A2279E1AFE
22D9D208DBF1F52E1634E1DBBF147A20E4A20510000000000000000000E4A205
10000000000000000000B2130DBBF1AE8C1B21305BF22D9D209C2A290DA1DBBF
184E204044943535B21305DF22B21302E000400594342340E1B20FF000810002
200000008FFF3000008FFF300000830030000081002000008100000000810000
0000810000000081000000008100000000810000000081000000008700000000
8FFF300000000C300000000030E7E700003036C3000030168100003036810000
30E7810000308681800030C68181083066C38FFF3037E78FFF30011004005943
41340E1B20FF0008100022000FFFFFF3000FFFFFF30003083003000108300200
0008300000000830000000083000000008300000000830000000083000000008
300000000830000000083000000008300000000830000000083EFCF3000836CC
630008368462000836006000083E706000083600600008368060000836C06000
0C7EF0F0001100404494353540D9D20D4881D8A812BF8170140D9D208813026A
C130A503223030A50322301192004000A3D36D9D2044230C2A207200094E6671
6C69646027425F4240244164716933A1B21301192038000A3D36D9D2044230C2
A207200094E66716C69646027425F4240244164716933A1B2130F78153223011
92004000A3D36D9D2044230C2A207200094E66716C696460205943445023596A
756933A1B21301192038000A3D36D9D2044230C2A207200094E66716C6964602
05943445023596A756933A1B213032230AEC8111920F780032230CCD20851008
F14660AF38A850B478F14660AF2DE109143818F09818F0981AF02174E78FB976
01F56507147818F29818F2981AF08AF234FFF3094B9034FFF00D7AF0103104AF
2311194B6031F0AE581AF13777011CC6C6114C2818F220EF781AF0C81AF0B94F
92819F2819F281AF0B81961AE480863A080857AE881AF1181AF1B8B280DE7210
81AF148AC298D3415081AF1AC2135AF014B0E6011B13381AF10C213313514FBE
D0E650E6ABED15D001B2130B2130E0300404564947440CCD20E310013606DD06
1B97507142137135818F098BA606FF014713481AF0914234E4A208A26060E016
91527100E717414381AF2914581AF291321428A26060B01691567AFAAF1D122A
95118C9D5F522A8520A81819F122A82C1201B56507146818F29818F29C9136AF
2156090A90B456E002F308200E49BF4BF4BF4AF68AE09AF0AF2AC48108087340
E68084396840E614313216915472007DD07136142164808CF410040856494744
0CCD204410034E7507137143818F8E1358BE60691117E818F328FB97601CE1B5
6507146134152739E1B20F880029916912014313234E4A201428A2606EB01691
5271011741431321428A63E16915271001741431321428A68C1691567AFAAF12
2A95118C9AF5BF522A8520A8181D22A82C1201B56507146818F29818F29C9134
119BF2BF2241542BF616F16F1610D880BEBF4BF4BF4AF68AA60688F208F2D760
142164808C551004044C435454047A209C2A29C2A29C2A2B2130520005054271
6375650D9D2047A204B2A2C2A20500004B2A2B213078BF12ABF178BF1D13A238
7C14563284E20603534F425543597632DCC02B213017000408494748440D9D20
275E178BF1634E1DBBF147A20E4A20510000000000000000000E4A2051000000
0000000000000B2130DBBF1AE8C147A20E4A20510000000000000000000E4A20
510000000000000000000B21300F2E184E2040442584943F2A284E2050449435
5425B2130AD000408454C40540D9D20858A1C2A20B11008494748402D2023586
F6770245F6070253A0542514355402D2025427163756370245F6070253A00202
02020244552594E474027414D454A0E402D20245F67676C65602E4568747A0F4
02D202F46666020202020202028302D20264C69607A00502D202051657375602
020243C26302D20225C2C4A01502D202155796470202020202020302D2024427
F6079C2A2485A184E205094E464C405B213065100501424F4554550D9D20E163
2858A1C2A2032100020202D20245564727963723E21302269702D202A0020202
14E6462756970244F6C6761636865667A00202020202D2023427564696473702
D202A0542796B602242797E64737560266F62702478656A0F627967696E616C6
0284054383026756273796F6E6E2A0A4F6560254276796E60266F62702478656
02A03536275656E60244963737F6C667560236F64656E29C2A2485A184E20509
4E464C40593632B2130A6100402554355540D9D20FD332D9D2084E2030351465
A59C18DBF1634E1DBBF147A20E4A20510000000000000000000E4A2051000000
0000000000000B2130DBBF1AE8C147A20E4A20510000000000000000000E4A20
510000000000000000000B21300F2E1BB8A1B2130F1732D9D20C2A20D6000741
6D65602963702E6F64702071657375646E2A005275637370235451425450247F
6023747162747A01602E65677027616D656E23F2A2485A18DBF184E205094E46
4C405B21305DF22B2130C710050374716274750D9D20275E1916C1DBBF144CF1
4563284E2010C497632DCC02FD33284E2060455445259435F1732D9D20B21305
DF22C2A20500003F2A2485A144CF184E2010C490DA146CF13F2A284E20504494
355425F76C1C2A20500004563284E203035146597632DCC02B2130C309"
--------cut here also----

O.K>, I'll d/l the above, and chekc that it works.
  ---Falco

I checked it and d/l it to my 48, it works fine.  I will also ftp this as
soon as I can, along with posting it on user.prgorams on the HP board as
soon as I can.
   --Falco